home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2004 E…tra 100 Bedste Programmer / K-CD_2004_Ekstra_100_Gratis_Programmer.iso / Windows / X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Acrobat Reader 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2004-02-05  |  7.3 KB  |  232 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="8"
  3. "COUNT"="2"
  4. "UIPATH 1"="Program Options\Other Programs\Adobe\Acrobat Reader 6.0\"
  5. "NAME"="Acrobat Reader Plug-ins"
  6. "VERSION"="1.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Show Info"
  9. "TEXT 2"="Enable/Disable"
  10. "DESCRIPTION 1"="Since Acrobat Reader 6.0, Adobe has included a lot of feature into Acrobat Reader from programs that were available separately before (for example the eBook Reader). This has been done by creating plug-ins for Acrobat Reader that are loaded when the program starts."
  11. "DESCRIPTION 2"="While this is basically a good idea, it now forced Acrobat Reader to load all plug-in into memory (at about 25 in the full version). Most of these plug-in are not needed by the average user that just wants to view a *.PDF file. "
  12. "DESCRIPTION 3"="These settings allow you to disable groups of plug-in that are not needed by the average user. After each name, you see how big all plug-ins of the group (approx.). To learn more about a group, click the "Show Info" button. To disable or enable a group, just click the "Enable/Disable" button. Please note that this does _NOT_ delete the plug-ins but simply prevents Acrobat Reader from loading them. You can later on always enable them again if need the functionality of the plug-ins. "
  13. "DESCRIPTION 4"="On an average machine this can speed up the loading of Acrobat Reader from 8 seconds to around about 1 second (800% faster!). "
  14. "DESCRIPTION 5"="To see the currently loaded plug-ins in Acrobat Reader, check Help -> About Adobe Plug-Ins. Of course it will not show you any plug-ins from a group you have disabled here. "
  15. "AUTHOR"="Xteq Systems"
  16. "CONTACTURL"="http://www.xteq.com/"
  17. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  18. "COMMENT 1"="Thanks to mc▓ for the idea!"
  19.  
  20.  
  21. cInstallPath="HKLM\SOFTWARE\Adobe\Acrobat Reader\6.0\InstallPath\@"
  22. cPlugsPath="plug_ins\"
  23. cCR=chr(13) & chr(10)
  24. cCR2=chr(13) & chr(13)
  25.  
  26. cDisabled=" [DISABLED]"
  27.  
  28. sPath=""
  29.  
  30.  
  31. cMaxItems=8
  32. Dim aryNam(8) '=Group Name
  33. Dim aryAPI1(8)
  34. Dim aryAPI2(8)
  35. Dim aryDes(8)
  36. Dim arySug(8)
  37.  
  38.  
  39. aryNam(1)="Accessibility (~ 4 MB)"
  40. aryAPI1(1)="Accessibility.api"
  41. aryAPI2(1)="MakeAccessible.api"
  42. aryDes(1)="Interaction with accessibility tags and programs (Screen Readers, Text to Speech etc.)"
  43. arySug(1)="You do not need accessibility features within Acrobat Reader"
  44.  
  45.  
  46. aryNam(2)="eBook DRM Support (~ 1.3 MB)"
  47. aryAPI1(2)="eBook.api"
  48. aryAPI2(2)=""
  49. aryDes(2)="Digital Rights Management, mostly used for eBooks (former Adobe eBook Reader)"
  50. arySug(2)="You do not want to use Acrobat Reader for reading eBooks (removes the eBooks toolbar button also)"
  51.  
  52.  
  53. aryNam(3)="Comments/XFA Support (~ 3.3 MB)"
  54. aryAPI1(3)="annotations\annots.api"
  55. aryAPI2(3)="XFA.api"
  56. aryDes(3)="Comments and XML Forms Architecture (XFA)"
  57. arySug(3)="You do not fill out a XML PDF form and you do not add comments to a PDF file"
  58.  
  59.  
  60. aryNam(4)="PrintMe Network Support (~ 0.3 MB)"
  61. aryAPI1(4)="printme.api"
  62. aryAPI2(4)=""
  63. aryDes(4)="Access to send current PDF to PrintMe capable devices"
  64. arySug(4)="You do not want to sent PDF files to the PrintMe network (removes the PrintMe menus and buttons also)"
  65.  
  66.  
  67. aryNam(5)="Public-Key/Signatures (~ 2.7 MB)"
  68. aryAPI1(5)="PPKLite.api"
  69. aryAPI2(5)="DigSig.api"
  70. aryDes(5)="Digital Signatures and Public-key signing and encryption support"
  71. arySug(5)="You do not deal with digital signed or encrypted PDF files"
  72.  
  73.  
  74. aryNam(6)="Send Mail Command (~ 0.1 MB)"
  75. aryAPI1(6)="SendMail.api"
  76. aryAPI2(6)=""
  77. aryDes(6)="Toolbar button to send current PDF via email"
  78. arySug(6)="You do want to get rid of the Send As Email toolbar button and menu command"
  79.  
  80.  
  81. aryNam(7)="Multimedia Support (~ 1.2 MB)"
  82. aryAPI1(7)="multimedia\multimedia.api"
  83. aryAPI2(7)=""
  84. aryDes(7)="Allows multimedia content (movies, sounds) to be embedded into a PDF file"
  85. arySug(7)="You do not expect PDF files to contain videos, music files etc."
  86.  
  87.  
  88. aryNam(8)="Web Updater (~ 0.3 MB)"
  89. aryAPI1(8)="Updater.api"
  90. aryAPI2(8)=""
  91. aryDes(8)="Handles automatic updates"
  92. arySug(8)="You do not want Acrobat Reader to update itself automatically by using the adobe.com web site"
  93.  
  94.  
  95. 'aryNam(3)="Highlight Server" '49 kB !!! 
  96. 'aryAPI(3)="HLS.api"
  97. 'aryDes(3)="Highlight Server plug-in"
  98. 'arySug(3)=""
  99.  
  100. 'aryNam(4)="SOAP"
  101. 'aryAPI(4)="SOAP.api"
  102. 'aryDes(4)="SOAP (Simple Object Access Protocol)"
  103. 'arySug(4)=""
  104.  
  105. 'aryNam(6)="WorldReady Enabled"
  106. 'aryAPI(6)="WorldReady.api"
  107. 'aryDes(6)="multinlingual support"
  108. 'arySug(6)=""
  109.  
  110. 'aryNam(14)="SaveAsRTF"
  111. 'aryAPI(14)="SaveAsRTF.api"
  112. 'aryDes(14)="Ability to save a PDF in RTF (Richt Text Format) if the author has allowed this"
  113. 'arySug(14)=""
  114.  
  115.  
  116.  
  117. SUB Plugin_Initialize
  118.  sPath=RegReadValue(cInstallPath)
  119.  if IsEmpty(sPath)=false and len(sPath)>0 then
  120.     if right(sPath,1)<>"\" then
  121.        sPath=sPath & "\"
  122.     end if
  123.     sPath=sPath & cPlugsPath
  124.  
  125.     If FolderExists(sPath)=true then
  126.        'Call DebugMsg(sPath)
  127.        Call ReadAllFiles()    
  128.     else
  129.       Call Disable
  130.     end if
  131.  else
  132.     Call Disable()
  133.  end if
  134.  
  135. END SUB
  136.  
  137. Sub ReadAllFiles
  138.  for i=1 to ubound(aryAPI1)
  139.      Call SetUIElement(i,"")
  140.  next
  141.  
  142.  for i=1 to ubound(aryAPI1)
  143.            sName=aryNam(i) 
  144.            iPS=GetPluginState(aryAPI1(i))
  145.            if iPS>0 then 
  146.               if iPS=2 then sName=sName & cDisabled
  147.  
  148.               Call SetUIElement(i,sName)
  149.            else
  150.               'plug not found?!?!?!
  151.               Call DebugMsg("Not found: " & sName)
  152.            end if
  153.        next
  154. End Sub
  155.  
  156.  
  157. 'Returns the status of a plug-in
  158. '0 = file not found, plug-in properly not installed
  159. '1 = installed and activated
  160. '2 = installed and deactivated
  161. Function GetPluginState(PluginAPIName)
  162.  if FileExists(sPath & PluginAPIName) then
  163.     r=1
  164.  else
  165.     if FileExists(sPath & PluginAPIName & "-") then
  166.        r=2
  167.     else
  168.        r=0
  169.     end if
  170.  end if
  171.  
  172.  GetPluginState=r
  173. End Function
  174.  
  175. Sub SetPluginState(PluginAPIName,EnableIt)
  176.  if len(PluginAPIName)>0 then 
  177.     if EnableIt then
  178.        Call FileRename(sPath & PluginAPIName & "-", sPath & PluginAPIName) 
  179.     else
  180.        Call FileRename(sPath & PluginAPIName, sPath & PluginAPIName & "-") 
  181.     end if
  182.  end if
  183.  
  184. End Sub
  185.  
  186.  
  187. SUB Plugin_CheckData(ElementIndex)
  188. END SUB
  189.  
  190. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  191.  if ElementSubIndex>0 then
  192.     'sAPI=aryAPI(ElementSubIndex)
  193.     'Call MsgInformation(sAPI)
  194.  
  195.     if ElementIndex=1 then 'Show Info     
  196.        sText=""
  197.        sText=sText & "Group Name: " & aryNam(ElementSubIndex) & cCR2
  198.        sText=sText & "Loaded from file 1: " & aryAPI1(ElementSubIndex) & cCR
  199.        sText=sText & "Loaded from file 2: " & aryAPI2(ElementSubIndex) & cCR2
  200.        sText=sText & aryDes(ElementSubIndex) & cCR2
  201.        sText=sText & "Disable it if: " & arySug(ElementSubIndex)
  202.  
  203.        Call MsgInformation(sText)
  204.     end if
  205.  
  206.  
  207.     if ElementIndex=2 then 'Enable/Disable
  208.        sUIText=GetUIElement(ElementSubIndex) 
  209.  
  210.        bIsEnabled=true
  211.        If InStr(sUIText,cDisabled)>0 then
  212.           'is not enabled
  213.           bIsEnabled=false
  214.        end if
  215.  
  216.        Call SetPluginState(aryAPI1(ElementSubIndex),(not bIsEnabled))
  217.        Call SetPluginState(aryAPI2(ElementSubIndex),(not bIsEnabled))
  218.        'Call SetPluginState(aryAPI3(ElementSubIndex),(not bIsEnabled))
  219.        Call ReadAllFiles
  220.     end if
  221.  
  222.  
  223.  else
  224.     Call MsgWarning("Please select an item first") 
  225.  end if
  226.  
  227.  
  228. END SUB
  229.  
  230. SUB Plugin_Terminate
  231. END SUB
  232.